home *** CD-ROM | disk | FTP | other *** search
/ Developer Helper 1: Phil & Dave's Excellent CD / Excellent CD HFS.raw / HyperCard / HyperCard 1.2.2 International / HyperCard Danish (DK-1.2.2) / HyperCard-stakke / Katalog / background_2757.txt < prev    next >
Text File  |  1988-12-19  |  12KB  |  554 lines

  1. -- background: 2757 from stack: in
  2. -- bmap block id: 7426
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openBackground
  8.   setButtons
  9. end openBackground
  10.  
  11. on closeBackground
  12.   setButtons
  13. end closeBackground
  14.  
  15. on mouseUp
  16.   setButtons
  17. end mouseUp
  18.  
  19. on setButtons
  20.   set lockscreen to true
  21.   -- Turns hilite to off:
  22.   set hilite of bkgnd button 9 to false
  23.   set hilite of bkgnd button 11 to false
  24.   set hilite of bkgnd button 12 to false
  25.   -- Disactivates buttons:
  26.   set autoHilite of bkgnd button 5 to false
  27.   set autoHilite of bkgnd button 6 to false
  28.   set autoHilite of bkgnd button 7 to false
  29.   set autoHilite of bkgnd button 8 to false
  30.   set autoHilite of bkgnd button 13 to false
  31.   set lockscreen to false
  32. end setButtons
  33.  
  34.  
  35.  
  36.  
  37.  
  38.  
  39.  
  40.  
  41.  
  42. -- part 6 (button)
  43. -- low flags: 00
  44. -- high flags: 2000
  45. -- rect: left=260 top=295 right=320 bottom=287
  46. -- title width / last selected line: 0
  47. -- icon id / first selected line: 1013 / 1013
  48. -- text alignment: 1
  49. -- font id: 0
  50. -- text size: 12
  51. -- style flags: 0
  52. -- line height: 16
  53. -- part name: 
  54. ----- HyperTalk script -----
  55. on mouseUp
  56.   visual effect wipe left
  57.   go to next card
  58. end mouseUp
  59.  
  60.  
  61.  
  62. -- part 7 (button)
  63. -- low flags: 00
  64. -- high flags: 2000
  65. -- rect: left=229 top=295 right=320 bottom=256
  66. -- title width / last selected line: 0
  67. -- icon id / first selected line: 1014 / 1014
  68. -- text alignment: 1
  69. -- font id: 0
  70. -- text size: 12
  71. -- style flags: 0
  72. -- line height: 16
  73. -- part name: 
  74. ----- HyperTalk script -----
  75. on mouseUp
  76.   visual effect wipe right
  77.   go to previous card
  78. end mouseUp
  79.  
  80.  
  81.  
  82. -- part 8 (button)
  83. -- low flags: 00
  84. -- high flags: 0000
  85. -- rect: left=8 top=292 right=321 bottom=40
  86. -- title width / last selected line: 0
  87. -- icon id / first selected line: 21700 / 21700
  88. -- text alignment: 1
  89. -- font id: 0
  90. -- text size: 12
  91. -- style flags: 0
  92. -- line height: 16
  93. -- part name: Home
  94. ----- HyperTalk script -----
  95. on mouseUp
  96.   visual effect barn door close
  97.   go Home
  98. end mouseUp
  99.  
  100.  
  101.  
  102. -- part 9 (button)
  103. -- low flags: 00
  104. -- high flags: 2000
  105. -- rect: left=455 top=293 right=321 bottom=492
  106. -- title width / last selected line: 0
  107. -- icon id / first selected line: 1012 / 1012
  108. -- text alignment: 1
  109. -- font id: 0
  110. -- text size: 12
  111. -- style flags: 0
  112. -- line height: 16
  113. -- part name: 
  114. ----- HyperTalk script -----
  115. on mouseUp
  116.   visual effect barn door close
  117.   pop card
  118. end mouseUp
  119.  
  120.  
  121.  
  122. -- part 10 (field)
  123. -- low flags: 00
  124. -- high flags: 2002
  125. -- rect: left=216 top=54 right=78 bottom=340
  126. -- title width / last selected line: 0
  127. -- icon id / first selected line: 0 / 0
  128. -- text alignment: 0
  129. -- font id: 3
  130. -- text size: 12
  131. -- style flags: 0
  132. -- line height: 16
  133. -- part name: Produktnr.
  134.  
  135.  
  136. -- part 11 (field)
  137. -- low flags: 00
  138. -- high flags: 2002
  139. -- rect: left=216 top=82 right=107 bottom=340
  140. -- title width / last selected line: 0
  141. -- icon id / first selected line: 0 / 0
  142. -- text alignment: 0
  143. -- font id: 3
  144. -- text size: 12
  145. -- style flags: 0
  146. -- line height: 16
  147. -- part name: Kategori
  148.  
  149.  
  150. -- part 12 (field)
  151. -- low flags: 00
  152. -- high flags: 2002
  153. -- rect: left=216 top=111 right=136 bottom=487
  154. -- title width / last selected line: 0
  155. -- icon id / first selected line: 0 / 0
  156. -- text alignment: 0
  157. -- font id: 3
  158. -- text size: 12
  159. -- style flags: 0
  160. -- line height: 16
  161. -- part name: Type
  162.  
  163.  
  164. -- part 13 (field)
  165. -- low flags: 00
  166. -- high flags: 2007
  167. -- rect: left=142 top=162 right=291 bottom=486
  168. -- title width / last selected line: 0
  169. -- icon id / first selected line: 0 / 0
  170. -- text alignment: 0
  171. -- font id: 3
  172. -- text size: 12
  173. -- style flags: 0
  174. -- line height: 16
  175. -- part name: Beskrivelse
  176.  
  177.  
  178. -- part 14 (button)
  179. -- low flags: 00
  180. -- high flags: 8002
  181. -- rect: left=141 top=54 right=78 bottom=217
  182. -- title width / last selected line: 0
  183. -- icon id / first selected line: 0 / 0
  184. -- text alignment: 1
  185. -- font id: 0
  186. -- text size: 12
  187. -- style flags: 0
  188. -- line height: 16
  189. -- part name: Produktnr.
  190. ----- HyperTalk script -----
  191. on mouseUp
  192.   -- SORT
  193.   if highlight of bkgnd button 12 is true
  194.   then
  195.   sort by bkgnd field 1
  196.   exit mouseUp
  197. end if
  198. -- FIND
  199. if highlight of bkgnd button 9 is true
  200. then
  201. ask "Hvilket produktnr. ?"
  202. if it is empty then exit mouseUp
  203. show msg box at 1000,1000 -- Puts the msg box away
  204. put "find " & quote & it & quote into msg box
  205. put " in bkgnd field 1" after msg box
  206. send enterKey
  207. if the result is "Not found"
  208. then
  209. answer "Beklager, kortet findes ikke" with "OK"
  210. else
  211.   show msg box at 15,310
  212. end if
  213. end if
  214. end mouseUp
  215.  
  216.  
  217.  
  218.  
  219.  
  220. -- part 15 (button)
  221. -- low flags: 00
  222. -- high flags: 8002
  223. -- rect: left=142 top=82 right=107 bottom=217
  224. -- title width / last selected line: 0
  225. -- icon id / first selected line: 0 / 0
  226. -- text alignment: 1
  227. -- font id: 0
  228. -- text size: 12
  229. -- style flags: 0
  230. -- line height: 16
  231. -- part name: Kategori
  232. ----- HyperTalk script -----
  233. on mouseUp
  234.   put 2 into fieldNb
  235.   put "Hvilken kategori ?" into question
  236.  
  237.   -- VIEW
  238.   if highlight of bkgnd button 11 is true then
  239.     put bkgnd field fieldNb into it
  240.     set lockscreen to true
  241.     go next
  242.     find it in bkgnd field fieldNb
  243.     set lockscreen to false
  244.     exit mouseUp
  245.   end if
  246.   -- SORT
  247.   if highlight of bkgnd button 12 is true then
  248.     sort by field fieldNb
  249.     exit mouseUp
  250.   end if
  251.   -- FIND
  252.   if highlight of bkgnd button 9 is true
  253.   then
  254.   ask question
  255.   if it is empty then exit mouseUp
  256.   show msg box at 1000,1000 -- Puts the msg box away
  257.   put "find " & quote & it & quote into msg box
  258.   put " in background field " & fieldNb after msg box
  259.   send enterKey
  260.   if the result is "Not found"
  261.   then
  262.   answer "Beklager, kortet findes ikke" with "OK"
  263. else
  264.   show msg box at 15,310
  265. end if
  266. end if
  267.  
  268. end mouseUp
  269.  
  270.  
  271.  
  272.  
  273. -- part 16 (button)
  274. -- low flags: 00
  275. -- high flags: 8002
  276. -- rect: left=142 top=111 right=136 bottom=217
  277. -- title width / last selected line: 0
  278. -- icon id / first selected line: 0 / 0
  279. -- text alignment: 1
  280. -- font id: 0
  281. -- text size: 12
  282. -- style flags: 0
  283. -- line height: 16
  284. -- part name: Type
  285. ----- HyperTalk script -----
  286. on mouseUp
  287.   put 3 into fieldNb
  288.   put "Hvilken type ?" into question
  289.  
  290.   -- VIEW
  291.   if highlight of bkgnd button 11 is true then
  292.     put bkgnd field fieldNb into it
  293.     set lockscreen to true
  294.     go next
  295.     find it in bkgnd field fieldNb
  296.     set lockscreen to false
  297.     exit mouseUp
  298.   end if
  299.   -- SORT
  300.   if highlight of bkgnd button 12 is true then
  301.     sort by field fieldNb
  302.     exit mouseUp
  303.   end if
  304.   -- FIND
  305.   if highlight of bkgnd button 9 is true
  306.   then
  307.   ask question
  308.   if it is empty then exit mouseUp
  309.   show msg box at 1000,1000
  310.   put "find " & quote & it & quote into msg box
  311.   put " in background field " & fieldNb after msg box
  312.   send enterKey
  313.   if the result is "Not found"
  314.   then
  315.   answer "Beklager, kortet findes ikke" with "OK"
  316. end if
  317. hide msg box
  318. set the location of msg box to 30,250
  319. end if
  320.  
  321. end mouseUp
  322.  
  323.  
  324.  
  325.  
  326. -- part 17 (button)
  327. -- low flags: 00
  328. -- high flags: 8002
  329. -- rect: left=142 top=139 right=163 bottom=235
  330. -- title width / last selected line: 0
  331. -- icon id / first selected line: 0 / 0
  332. -- text alignment: 1
  333. -- font id: 0
  334. -- text size: 12
  335. -- style flags: 0
  336. -- line height: 16
  337. -- part name: Beskrivelse
  338. ----- HyperTalk script -----
  339. on mouseUp
  340.   -- SORT
  341.   if highlight of bkgnd button 12 is true then
  342.     sort by bkgnd field 4
  343.     exit mouseUp
  344.   end if
  345.   -- FIND
  346.   if highlight of background button 9 is true
  347.   then
  348.   ask "Hvad ?"
  349.   if it is empty then exit mouseUp
  350.   show msg box at 1000,1000 -- Puts the msg box away
  351.   put "find " & quote & it & quote into msg box
  352.   put " in background field 4" after msg box
  353.   send enterKey
  354.   if the result is "Not found"
  355.   then
  356.   answer "Beklager, kortet findes ikke" with "OK"
  357. else
  358.   show msg box at 15,310
  359. end if
  360. exit mouseUp
  361. end if
  362. end mouseUp
  363.  
  364.  
  365.  
  366.  
  367.  
  368. -- part 19 (button)
  369. -- low flags: 00
  370. -- high flags: A003
  371. -- rect: left=17 top=126 right=155 bottom=91
  372. -- title width / last selected line: 0
  373. -- icon id / first selected line: 0 / 0
  374. -- text alignment: 1
  375. -- font id: 0
  376. -- text size: 12
  377. -- style flags: 0
  378. -- line height: 16
  379. -- part name: Find i...
  380. ----- HyperTalk script -----
  381. on mouseUp
  382.   set hilite of bkgnd button id 19 to true
  383.   set hilite of bkgnd button id 22 to false
  384.   set hilite of bkgnd button id 21 to false
  385.   -- Buttons which can be clicked after this one:
  386.   set autoHilite of bkgnd button 5 to true
  387.   set autoHilite of bkgnd button 6 to true
  388.   set autoHilite of bkgnd button 7 to true
  389.   set autoHilite of bkgnd button 8 to true
  390.   set autoHilite of bkgnd button 13 to true
  391. end mouseUp
  392.  
  393.  
  394.  
  395. -- part 20 (button)
  396. -- low flags: 00
  397. -- high flags: A003
  398. -- rect: left=395 top=81 right=106 bottom=486
  399. -- title width / last selected line: 0
  400. -- icon id / first selected line: 0 / 0
  401. -- text alignment: 1
  402. -- font id: 0
  403. -- text size: 12
  404. -- style flags: 0
  405. -- line height: 16
  406. -- part name: Indeks...
  407. ----- HyperTalk script -----
  408. on mouseUp
  409.   -- Automatic card numbering
  410.   set cursor to 4 -- A watch
  411.   set lockscreen to true -- Not display cards in the loop
  412.   go to first card
  413.   go next -- This is Help card
  414.   go next -- This is the first product card
  415.   put 1 into index
  416.   put number of cards into total
  417.   repeat until index = total-1  -- Subtract 1 for Help card
  418.     put index into background field id 23
  419.     go next card
  420.     add 1 to index
  421.   end repeat
  422.   setButtons
  423.   set lockscreen to false
  424. end mouseUp
  425.  
  426.  
  427.  
  428.  
  429. -- part 21 (button)
  430. -- low flags: 00
  431. -- high flags: 8003
  432. -- rect: left=18 top=55 right=84 bottom=93
  433. -- title width / last selected line: 0
  434. -- icon id / first selected line: 0 / 0
  435. -- text alignment: 1
  436. -- font id: 0
  437. -- text size: 12
  438. -- style flags: 0
  439. -- line height: 16
  440. -- part name: Vis efter...
  441. ----- HyperTalk script -----
  442. on mouseUp
  443.   set highlight of bkgnd button id 21 to true
  444.   set highlight of bkgnd button id 22 to false
  445.   set highlight of bkgnd button id 19 to false
  446.   -- Buttons which can be clicked after this one:
  447.   set autoHilite of bkgnd button 5 to false
  448.   set autoHilite of bkgnd button 6 to true
  449.   set autoHilite of bkgnd button 7 to true
  450.   set autoHilite of bkgnd button 8 to false
  451.   set autoHilite of bkgnd button 13 to false
  452. end mouseUp
  453.  
  454.  
  455.  
  456. -- part 22 (button)
  457. -- low flags: 00
  458. -- high flags: A003
  459. -- rect: left=18 top=90 right=120 bottom=92
  460. -- title width / last selected line: 0
  461. -- icon id / first selected line: 0 / 0
  462. -- text alignment: 1
  463. -- font id: 0
  464. -- text size: 12
  465. -- style flags: 0
  466. -- line height: 16
  467. -- part name: Sortér...
  468. ----- HyperTalk script -----
  469. on mouseUp
  470.   set highlight of bkgnd button id 22 to true
  471.   set highlight of bkgnd button id 21 to false
  472.   set highlight of bkgnd button id 19 to false
  473.   -- Buttons which can be clicked after this one:
  474.   set autoHilite of bkgnd button 5 to true
  475.   set autoHilite of bkgnd button 6 to true
  476.   set autoHilite of bkgnd button 7 to true
  477.   set autoHilite of bkgnd button 8 to true
  478.   set autoHilite of bkgnd button 13 to true
  479. end mouseUp
  480.  
  481.  
  482.  
  483. -- part 23 (field)
  484. -- low flags: 00
  485. -- high flags: 2002
  486. -- rect: left=446 top=54 right=78 bottom=486
  487. -- title width / last selected line: 0
  488. -- icon id / first selected line: 0 / 0
  489. -- text alignment: 0
  490. -- font id: 3
  491. -- text size: 12
  492. -- style flags: 0
  493. -- line height: 16
  494. -- part name: Kortnr.
  495.  
  496.  
  497. -- part 24 (button)
  498. -- low flags: 00
  499. -- high flags: 8002
  500. -- rect: left=394 top=54 right=78 bottom=447
  501. -- title width / last selected line: 0
  502. -- icon id / first selected line: 0 / 0
  503. -- text alignment: 1
  504. -- font id: 0
  505. -- text size: 12
  506. -- style flags: 0
  507. -- line height: 16
  508. -- part name: Kortnr.
  509. ----- HyperTalk script -----
  510. on mouseUp
  511.   -- SORT
  512.   if highlight of bkgnd button 12 is true
  513.   then
  514.   sort numeric by background field 5
  515.   exit mouseUp
  516. end if
  517. -- FIND
  518. if highlight of bkgnd button 9 is true
  519. then
  520. ask "Hvilket kortnr. ?"
  521. if it is empty then exit mouseUp
  522. show msg box at 1000,1000 -- Puts the msg box away
  523. put "find " & quote & it & quote into msg box
  524. put " in bkgnd field 5" after msg box
  525. send enterKey
  526. if the result is "Not found"
  527. then
  528. answer "Beklager, kortet findes ikke" with "OK"
  529. else
  530.   show msg box at 15,310
  531. end if
  532. end if
  533. end mouseUp
  534.  
  535.  
  536.  
  537. -- part 30 (button)
  538. -- low flags: 00
  539. -- high flags: 0000
  540. -- rect: left=52 top=294 right=318 bottom=81
  541. -- title width / last selected line: 0
  542. -- icon id / first selected line: 25002 / 25002
  543. -- text alignment: 1
  544. -- font id: 0
  545. -- text size: 12
  546. -- style flags: 0
  547. -- line height: 16
  548. -- part name: Ny knap
  549. ----- HyperTalk script -----
  550. on mouseUp
  551.   go to card id 4680
  552. end mouseUp
  553.  
  554.